home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 96 / Tiger_Disk_096_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_87 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  642b  |  13 lines
  1. 1 printchr$(147);:poke53280,.:poke53281,.:forz=5to8:fors=zto15:poke53265,80
  2. 5 m=54272:pokem+24,15:pokem+5,204:pokem+4,21:pokem+6,34:pokem+4,49:poke646,s
  3. 11 print,:poke646,z :poke53283,z+s
  4. 13 :poke53283,peek(53284)
  5. 16 poke646,s*z:print"                                        "
  6. 19 poke214,z:sys58640:poke53284,peek(53282)andz:pokem+1,z*(s/(s-1)):pokem+4,20
  7. 22 poke214,s:sys58732:fort=1to21step.3:next:print;"[160] [160] [160] [160] [160] [160] [160]  ende    [157]";
  8. 25 next:next:poke56325,.:print"[147]                                        "
  9. 26 fori=5to6:pokem+24,15:pokem+4,129::pokem+4,205:poke646,i:print"[157][157][157][157][157][157][157][157][157][157][157][157][145][145][145]",
  10. 27 print"[147]**************  e n d e [146] **************":nexti:poke56325,.
  11. 28 print"[153]>lukian<";:
  12. 29 pokem+4,129:poke56325,55:pokem+1,34:   pokem+4,128:sys2048
  13.